home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / misc / math / mathan.lha / mathan / rexx / Mathan.ed < prev    next >
Encoding:
Text File  |  1997-07-27  |  519 b   |  31 lines
  1. /*
  2. ** $VER: Mathan.ed
  3. **
  4. ** Mathan ARexx Macro for Ed 2.00
  5. **
  6. ** (Evaluates the current line)
  7. **
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. address 'Ed'
  13. 'RV/file_info/'
  14. text=file_info.CURRENT            /* Get the current line */
  15. address 'Mathan'
  16. text                            /* Send the string to Mathan */
  17. rlin=RESULT
  18. address 'Ed'
  19.  
  20. /*
  21. ** You can also use 'A/'||rlin||'/' but I prefer creating a file.
  22. */
  23.  
  24. IF Open(file,'T:mth.txt',WRITE) THEN DO
  25.     WriteLn(file,rlin)            /* Save the reply to a file */
  26.     Close(file)
  27.     'IF/'||'T:mth.txt'||'/'        /* Insert the file */
  28.     END
  29.  
  30.  
  31.